home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
pgvw174.zip
/
RSB3CHAT.MRG
< prev
next >
Wrap
Text File
|
1992-06-22
|
2KB
|
55 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB3.BAS to produce NEW\RSB3CHAT.BAS
* RBBSSUB3.BAS: Date 6-20-1992 Size 129071 bytes
* ------------[ Created 06-22-1992 11:36:13 ]------------
* REPLACING old line(s) by new
32000 IF NOT ZLocalUser THEN _
CALL SkipLine (1) : _
CALL QuickTPut1 ("Sysop exiting to DOS. Please wait...") : _
ZFunctionKey = 0 : _
* ------[ first line different ]------
CALL DelayTime (3)
CALL ViewStat ("I") ' DR062201
CALL ShellExit (ZDiskForDos$ + "COMMAND")
'SHELL ZDiskForDos$ + _
' "COMMAND"
CLS
IF NOT ZLocalUser THEN _
CALL Carrier : _
IF ZSubParm = -1 THEN _
GOTO 33970
ZSubParm = 2
CALL Line25
CALL ViewStat ("A") ' DR062201
CALL QuickTPut1 ("Sysop back from DOS. Returning control to you.")
ZCommPortStack$ = ZCarriageReturn$
GOTO 33970
'
'
' * F3 - COMMAND FROM LOCAL KEYBOARD (Printer Toggle)
'
'
* REPLACING old line(s) by new
33160 CALL UpdtCalr ("Sysop began chat",1)
* ------[ first line different ]------
CALL ViewStat ("E") ' DR062201
ZPageStatus$ = ""
CALL SkipLine (1)
CALL QuickTPut1 ("Hi " + _
ZFirstName$ + _
", this is " + _
ZSysopFirstName$ + _
" " + _
ZSysopLastName$ + _
" Sorry to break in to CHAT but..")
CALL TimeBack (1)
CALL SysopChat
CALL TimeBack (2)
ZCommPortStack$ = CHR$(13)
GOTO 33155
'
'
' * UP / CTRL-UP: INCREASE THE ON-LINE USER'S SECURITY BY ONE / FIVE
'
'